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--File: WManPosition.mesa 

—Edited by Sandman October 7, 1977 12:34 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
DoubleDefs: FROM "doubledef s" , 
InlineDefs: FROM "inl inedef s" , 
StreamOefs: FROM "streamdefs", 
MenuDefs: FROM "menudefs", 
RectangleDefs: FROM "rectangledefs". 
WindowDefs: FROM "windowdef s" , 
WManagerDefs: FROM "wmanagerdefs"; 

DEFINITIONS FROM StreamDefs, MenuDefs, RectangleDefs, WindowDefs, WManagerDefs; 

WManPosition: PROGRAM[WMState: WMOataHandle] 

IMPORTS DoubleDefs, StreamDefs, RectangleDefs, WindowDefs, WManagerDefs 

EXPORTS WManagerDefs 

SHARES StreamDefs, WManagerDefs « 

BEGIN 

OPEN WMState; 

CR: CHARACTER = 16C; 
Space: CHARACTER = 40C; 

PositionFile: PUBLIC PROCEDURE[w: WindowHandle. x: xCoord, y: yCoord]= 
BEGIN OPEN DoubleDefs; 
-- Declare Locals 
height: CARDINAL; 
bytepos, eof: LongCARDINAL; 
index: Streamlndex; 

-- compute position in file and set it 
SetCursor[arrow]; 
ButtonWait; 
SetCursor[ hour glass]; 
X ♦" xcursorloct; y ♦• ycursorloct; 

[x, y] ♦• CurscrToRectangleCoords[w. rectangle, x, y]; 
-- if out of jump bar then no scrolling 
IF NOT CheckForSlop[w, x, y] THEN 
BEGIN 

SetJumpStripe[w. FALSE]; 
RETURN; 
END; 
IF y < defaultlineheight+1 OR w. eof index .byte = 177777B THEN index ♦- [0. 0] 
ELSE 

BEGIN OPEN InlineDefs, AltoDefs; 
height ♦• w. rectangle. ch-(defaultl ineheight+1) ; 
y ♦- MIN[LOOPHOLE[y-(defaultlineheight+l) . CARDINAL], height]; 
IF y = height THEN index <- w.eofindex 
ELSE 
BEGIN 
eof ♦■ DAdd[LongMult[w. eof index. page. BytesPerPage] . 

LongCARDINAL[w. eof index. byte, 0]]; 
bytepos ♦- DDi vide[DMuUiply[eof . LongCARDlNAL[y , 0]j, 

LongCARDTNAL[height, 0]] . quot ient ; 
[index. page, index. byte] ♦- LongDivMod[bytepos , BytesPerPage]; 
IF index. page > w . eof index . page OR (index. page = w. eof index . page 

AND index. byte > w. eof index . by te) THEN index ♦- w.eofindex; 
END; 
END; 
DoTheScrol l[w, index]; 
END; 

ScrollUpFile: PUBLIC PROCEDURE[w: WindowHandle. x: xCoord, y: yCoord]= 
BfGIN 

-- Declare Locals 
index: Streamlndex; 
line: INTEGER; 

-- compute position in file and set it 
SelCursor[uparrow]; 
ButtonWa i t ; 
SetCursor[ hourglass]; 
x ♦- xcursorloct; y ♦- ycursorloct; 
[line, , .index] ♦- Resol veBugToPos i t ion[w, x. y]; 
[x. y] <- CursorToRectangleCoords[w. rectangle, x, y]; 
-- if out of jump bar then no scrolling 
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IF NOT ChGckForS1op[w. x. y] OR line = 1 THEN 

BEGIN 

SetOumpStrip8[w, FALSE]; 

RETURN; 

END; 
DoTheScron[w, index]; 
END; 

ScroHDownFile: PUBLIC PROCEDURE[w: WindowHandle, x: xCoord. y: yCoord]= 
BEGIN OPEN DoubleDefs. InlineDefs; 
-- Declare Locals 
index, posindex: Streamlndex; 
maxbackup,pos : LongCARDINAL; 
line.nlines: CARDINAL; 

nlines ♦- (w. rectangle. ch/w.ds. 1 ineheight)-!; 
— compute position in file and set it 
SetCursor[downarrow] ; 
ButtonWait; 
SetCursor[ hourglass]; 
X ♦- xcursorloct; y «- ycursorloct; 

[x, y] ♦- CursorToRectangleCoords[w. rectangle, x, y]; 
line ♦- MIN[L00PH0LE[MAX[1, y/w. ds . 1 ineheight] , CARDINAL] , nlines]; 
posindex ^ SELECT w.type FROM 

scratch, scriptfile => 

IF w.tempindex = nullindex THEN w.fileindex ELSE w. tempindex, 

file => w. f ileindex, 

ENDCASE => originindex; 
pos ♦• DAdd[LongMult[posindex.page. AltoDef s. BytesPerPage] . [posindex. byte, 0]]; 
-- if out of jump bar or first window then nop 
IF NOT CheckForSlop[w, x, y] OR EqualIndex[posindex, originindex] THEN 

BEGIN 

SetJumpStripe[w, FALSE]; 

RETURN; 

END; 
maxbackup *• LongMult[w. rectangle. cw/ComputeCharWidth[Space,w. ds . pfont] , line]; 
IF DCompare[pos , maxbackup] = Comparison[greater] THEN 

BEGIN 

maxbackup ♦- DSub[pos, maxbackup]; 

[index. page, index. byte] ♦• LongDivMod[maxbackup, AltoOefs .BytesPerPage]; 

END 
ELSE index ^ originindex; 

index ♦- GenerateLineTable[w, index, posindex, 1 ine.nl ines] ; 
DoTheScrol l[w, index]; 
END; 

NormalizeSelection: PUBLIC PROCEDURE[w: WindowHandle. x: xCoord. y: yCoord]= 
BEGIN OPEN DoubleDefs, InlineDefs; 

linestarts: DESCRIPTOR FOR ARRAY OF Streamlndex; 

maxbackup, pos: LongCARDINAL; 

index: Streamlndex; 

line: INTEGER; 

nlines: CARDINAL; 

nlines ^ (w. rectangle. ch/w. ds . 1 ineheight)-!; 

linestarts ♦- DESCRIPTOR[GetLineTable[] , nlines+1]; 

-- compute position in file and set it 

SetCursor[norm] ; 

ButtonWait ; 

SetCursor[ hourglass]; 

X ♦- xcursorloc* ; y *- ycursorloct; 

[x, y] ♦- CursorToRectangleCoords[w. rectangle, x, y]; 

1 ine *- MIN[MAX[1 , y/w. ds . 1 i neheight] , nlines]; 

-- if out of jump bar then nop 

IF NOT CheckForSlop[w, x, y] THEN 

BEGIN 

SetJumpStripe[w, FALSE]; 

RETURN; 

END; 
--if no selection or no scroll, simply move to beginning of file 
IF Cquallndex[w. select ion . left index , nullindex] 
OR ( Equal rndex[l inestarts[0] , originindex] 
AND line > w . select ion , 1 eft! ine) 

THEN index ♦- originindex 
-- selection visible and below bug 
FLSF IF w. selection. left! ine ^ AND 
(Grrqua1Index[w.select ion. left index, 1 inestarts[line-l]] 
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OR line <= 2 ♦ w. selection. left! ine) 

THEN index ♦- 1 inestarts[ABS[w. selection, left! ine - line]] 
— adjustments necessary 
ELSE BEGIN 

pos ♦• DAdd[LongMuU[w. selection, leftindex. page. AltoDef s . BytesPerPage] , 

[w. selection. left index. byte, 0]]; 
maxbackup ♦• LongMult[w. rectangle. cw/ComputeCharWidth[Space, w.ds .pfont] , line]; 
IF DCompare[pos, maxbackup] = Comparison[greater] THEN 
BEGIN 

maxbackup <- DSub[pos, maxbackup]; 

[index. page, index. byte] ♦• LongDivMod[maxbackup, AltoDefs .BytesPerPage]; 
END 
ELSE index ♦- originindex; 
-- get within window range 

index ♦■ GenerateLineTable[w, i ndex.w. select ion. leftindex, 1 ine.nl ines]; 
END; 
DoTheScroll[w, index]; 
END: 

CheckForSlop: PROCEDURE[w: WindowHandle, x: xCoord, y: yCoord] 
RETURNS[BOOLEAN]« 
BEGIN 

flag: BOOLEAN *- FALSE; 

--check if some part of cursor is in jump bar 
IF (x+slop > AND x <= JumpStrip + 15 AND y+slop > 
AND y - slop <= w. rectangle. ch) 
THEN flag ♦- TRUE; 
RETURN[flag]; . 
END; 

ButtonWait: PROCEDURE^ 
BEGIN 

--wait until all mouse buttons are up 
UNTIL GetMouseButton[] = None DO 

NULL; 

ENDLOOP; 
RETURN; 
END; 

DoTheScroll: PROCEDURE[w: WindowHandle, index: Streamlndex]= 
BEGIN 

SELECT w.type FROM 
clear => NULL; 
random => NULL; 
scratch, 
scriptfile => 
BEGIN 

IF index = w.tempindex THEN RETURN; 
w.tempindex ♦- index; 
w.ds. options. StopBottom ^ TRUE; 
IF w = GetCurrentDisplayWindow[] THEN 
BEGIN 

PaintDisplayWindow[w]; 
END; 
END; 
file => 
BEGIN 

IF index = w.fileindex THEN RETURN; 
w. f i leindex *- index ; 

IF w = GetCurrentDisplayWindow[] THEN 
BEGIN 

PaintDispl ayWindow[w]; 
END; 
END; 
ENDCASE; 
-- say not in jump mode anymore 
SetJumpStripe[w, FALSE]; 
END; 

GenerateL ineTable: PROCFDURC [w: WindowHandle, topindex, find: SLreamlndex, 
line, big: CARDINAL] RETURNS [Streamlndex] = 
BEGIN 

-- declare locals 

ptr: ARRAY[0 . .max! ines) OF Streamlndex; 
i, x: CARPINAl ; 
char: CHARACTER; 
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once: BOOLEAN ♦- TRUE; 
index, savedindex: Streamlndex; 
X ^ leftmargin; 

savedindex ♦■ Getlndex[w.f lie]; 
Setlndex[w.f ile. topindex]; 
index *- topindex; 
FOR i IN [0. .big) DO 
ptr[i] ♦• nullindex; 
ENDLOOP; 
i ^ 0; 

-- generate the table 
WHILE NOT Equa1Index[index, find] DO 
index *• Getlndex[w.f ile]; 
char ♦• w. file, get[w. file] ; 
X ♦" x + ComputeCharWidth[char,w.ds.pfont]; 
IF X >= w. rectangle. cw OR char = CR THEN 
BEGIN 

X *- leftmargin: 

IF char = CR THEN index ♦• Getlndex[w. f ile]; 
ptr[i] ♦• index; 
i ♦• (i + 1) MOD big; 
END; 
ENDLOOP; 
index *- ptr[LOOPHOLE[big-l ine+i . CARDINAL] MOD big]; 
IF NOT Equal Index[index , nullindex] THEN topindex ♦- index; 
Setlndex[w.f ile, savedindex] ; 
RETURN[topindex]; 
END; 

-- initialization for position module 

InitPosi tion: PROCEDURE = 
BEGIN 

Scrol lProcArray[RedYel lowBlue] ♦- NullProc; 
ScronProcArray[RedBlue] ♦■ Normal izeSelection ; 
Scrol lProcArray[RedYellow] <- NullProc; 
ScronProcArr''y[Red] ♦- Scrol lUpFi le; 
ScrcnProcArray[BlueYel low] ♦• NullProc; 
ScronProcArray[Blue] ♦- Scrol IDownFile; 
ScronProcArray[Yel low] ♦• Posi tionFile; 
ScronProcArray[None] ^ NullProc; 
END; 

--MAIN BODY CODE 

InitPosi tion[] ; 



END. of wmanposition 



